10 PRINT"[147]":POKE53280,.
15 A=2093:FORZ=1TO97 STEP5  :PRINTTAB(32)A-Z:
16 FORY=1TO30:PRINT"[145][145][145][145][145][145][145]":NEXTY,Z
20 POKE 13*4096+33,0
30 C$="[159][156][158][129][149][150][151][152][153][154][155][154][144]":B$="[190][187][188][172][190][215][209][187][188][172][190][187][188][172][190][187]":
40 FOR I=1 TO 17:FORX=1TOI-3
50 PRINT MID$(C$,I,1);:PRINT MID$(B$,X,1)
60 PRINT "";
70 FOR J=0TOI+1:PRINT:NEXT
80 PRINTSPC(I*1)"      [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     ";
90 PRINT"[145][145][145][145][145][145][145][145][187] TIME LAG [188]"
110 :PRINT"":NEXTX,I
111 FORI=0TO24:FORT=15TO0:POKE54296,T:POKE54296,1:NEXTT:POKE54276,129
112 FORC=17TO0STEP17:POKE54296,C:POKE54296,0:NEXTC,I
120 PRINT"[156][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]NACH EINEM"
130 PRINTTAB(26)"[157][157][157][157][157][157][157][157][157][157]SELTSAMEN    "
140 PRINTTAB(26)"[157][157][157][157][157][157][157][157][157][157]MANUSCRIPT";
150 IFP=0THENP=1:LOAD"DAS*",8,1:RUN